home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1997 #2 / Amiga Plus Extra 1997 #2.iso / pd / misc / amoked / macros / oberonmake.aed < prev    next >
Encoding:
Text File  |  1997-02-16  |  762 b   |  40 lines
  1. /* OberonMake  - Rexx-Apll für OMake */
  2.  
  3. options results
  4.  
  5. if ~show('L','rexxsupport.library') then
  6.    call addlib('rexxsupport.library',0,-30)
  7.  
  8. OberonSave.aed
  9.  
  10. 'getval $screenname'
  11. screenname = result
  12.  
  13. opts = ''
  14. open('file','env:OProject','R')
  15. project = readln('file')
  16. close('file')
  17.  
  18. IF open('file','env:.OCopt','R') THEN DO
  19.   copts = 'c'||readln('file')
  20.   close('file')
  21. END;
  22. IF open('file','env:.OLopt','R') THEN DO
  23.   lopts = 'l'||readln('file')
  24.   close('file')
  25. END;
  26.  
  27. call close 'STDERR'
  28. call open 'STDERR','NIL:','W'
  29. call close 'STDIN'
  30. call close 'STDOUT'
  31. call open 'STDOUT','CON:25/15/640/256/RexxCon/SCREEN'||sreenname,'RW'
  32. call pragma '*','STDOUT'
  33.  
  34. address command 'omake >* <*' copts lopts project 'DONTLINK'
  35.  
  36. if rc ~= 0 then
  37.   delay(100)
  38. close('STDOUT')
  39.  
  40.